100 CALL CLEAR
110 CALL SCREEN(12)
120 PRINT "          THE WALL"
130 FOR Z=1 TO 10
140 PRINT
150 NEXT Z
160 CALL HCHAR(9,10,42,14)
170 CALL HCHAR(18,10,42,14)
180 CALL VCHAR(10,10,42,8)
190 CALL VCHAR(10,23,42,8)
200 PRINT "           BY MPL"
210 FOR Z=1 TO 1000
220 NEXT Z
230 CALL CLEAR
240 PRINT "   DEVI ABBATTERE UN MURO": :"       DI 116 MATTONI": :"   OGNI MATTONE ABBATTUTO"
250 PRINT :" TI PERMETTE DI RAGGIUNGERE": :"  IL SUCCESSIVO CHE TI DA": :"   UN PUNTEGGIO MAGGIORE"
260 PRINT
270 PRINT
280 PRINT
290 FOR Z=1 TO 2000
300 NEXT Z
310 CALL CLEAR
320 PRINT "VUOI GIOCARE CON LA TASTIERA": : :"     O CON IL JOYSTICK?"
330 PRINT : : :"        PREMI T o J"
340 FOR Z=1 TO 5
350 PRINT
360 NEXT Z
370 CALL KEY(0,K,S)
380 IF S=0 THEN 370
390 IF K=84 THEN 440
400 IF K=116 THEN 440
410 IF K=74 THEN 540
420 IF K=106 THEN 540
430 GOTO 370
440 CALL CLEAR
450 T=1
460 PRINT " MUOVI LA TUA RACCHETTA CON": :"       I TASTI A e D": : :"  QUANDO COLPISCI LA PALLA"
470 PRINT :"       PUOI MANDARLA": :"      A SINISTRA CON A": :"       A DESTRA CON D"
480 PRINT :"     E VERTICALE CON S"
490 PRINT : :"       MA ATTENZIONE!": :"     HAI A DISPOSIZIONE": :"   SOLTANTO 120 PALLINE"
500 PRINT :"      BUONA FORTUNA!!"
510 FOR Z=1 TO 2000
520 NEXT Z
530 GOTO 620
540 CALL CLEAR
550 T=2
560 PRINT "   ALZA IL TASTO ALPHA LOCK"
570 PRINT :"  MUOVI LA TUA RACCHETTA CON": :"        IL JOYSTICK.": :"  QUANDO COLPISCI LA PALLA"
580 PRINT :"  PUOI MANDARLA A SINISTRA,": :"  A DESTRA,O IN VERTICALE.": : :"       MA ATTENZIONE!"
590 PRINT : :"     HAI A DISPOSIZIONE": :"    SOLTANTO 120 PALLINE.": : :"       BUONA FORTUNA!!"
600 FOR Z=1 TO 2000
610 NEXT Z
620 CALL SOUND(1000,2000,5)
630 CALL CLEAR
640 CALL CHAR(128,"FF818181818181FF")
650 CALL CHAR(120,"FF818181818181FF")
660 CALL CHAR(112,"FF818181818181FF")
670 CALL CHAR(104,"FF818181818181FF")
680 CALL CHAR(136,"000000000000FFFF")
690 CALL CHAR(137,"0000070E1C3870E0")
700 CALL CHAR(138,"0000E070381C0E07")
710 CALL CHAR(144,"00183C3C3C3C18")
720 CALL CHAR(145,"00000000000000FF")
730 CALL CHAR(146,"0101010101010101")
740 CALL CHAR(147,"8080808080808080")
750 CALL COLOR(15,16,1)
760 CALL COLOR(14,16,1)
770 CALL COLOR(13,2,9)
780 CALL COLOR(12,2,5)
790 CALL COLOR(11,2,14)
800 CALL COLOR(10,2,16)
810 CALL COLOR(16,3,3)
820 UR=48
830 DR=48
840 CR=48
850 MR=48
860 DMR=48
870 CMR=48
880 W=32219
890 E=3
900 GOSUB 4400
910 L=0
920 P=48
930 U=48
940 D=48
950 C=48
960 M=48
970 DM=48
980 CALL SCREEN((E))
990 X=16
991 DM=48
992 M=48
993 C=48
994 D=48
995 U=48
996 N=49
997 O=50
998 P=48
1000 CALL HCHAR(1,3,66)
1010 CALL HCHAR(1,4,65)
1020 CALL HCHAR(1,5,76,2)
1030 CALL HCHAR(1,7,83)
1040 CALL HCHAR(1,8,58)
1050 CALL HCHAR(1,10,(N))
1060 CALL HCHAR(1,11,(O))
1070 CALL HCHAR(1,12,(P))
1080 CALL HCHAR(1,19,80)
1090 CALL HCHAR(1,20,79)
1100 CALL HCHAR(1,21,73)
1110 CALL HCHAR(1,22,78)
1120 CALL HCHAR(1,23,84)
1130 CALL HCHAR(1,24,83)
1140 CALL HCHAR(1,25,58)
1150 CALL HCHAR(1,28,(M))
1160 CALL HCHAR(1,29,(C))
1170 CALL HCHAR(1,30,(D))
1180 CALL HCHAR(1,31,(U))
1190 CALL HCHAR(2,3,145,29)
1200 CALL VCHAR(3,2,146,22)
1210 CALL VCHAR(3,32,147,22)
1220 CALL HCHAR(6,3,128,29)
1230 CALL HCHAR(7,3,120,29)
1240 CALL HCHAR(8,3,112,29)
1250 CALL HCHAR(9,3,104,29)
1260 CALL HCHAR(24,X,136)
1270 RANDOMIZE
1280 B=INT(24*RND)+7
1290 P=P-1
1300 IF P<48 THEN 1330
1310 CALL HCHAR(1,12,(P))
1320 GOTO 1460
1330 P=57
1340 O=O-1
1350 IF O<48 THEN 1390
1360 CALL HCHAR(1,12,(P))
1370 CALL HCHAR(1,11,(O))
1380 GOTO 1460
1390 O=57
1400 P=57
1410 N=N-1
1420 IF N<48 THEN 3820
1430 CALL HCHAR(1,10,(N))
1440 CALL HCHAR(1,11,(O))
1450 CALL HCHAR(1,12,(P))
1460 A=10
1470 CALL VCHAR(A,B,144)
1480 CALL VCHAR(A,B,32)
1490 GOSUB 4800
1500 A=A+1
1510 IF A=24 THEN 1530
1520 GOTO 1470
1530 CALL GCHAR(A,B,E)
1540 CALL GCHAR(24,X,F)
1550 IF E=F THEN 1580
1560 CALL SOUND(100,150,5)
1570 GOTO 1270
1580 CALL SOUND(100,220,5)
1590 IF T=1 THEN 1600 ELSE 1660
1600 CALL KEY(0,K,S)
1610 IF S=0 THEN 1560
1620 IF K=65 THEN 1720
1630 IF K=83 THEN 1930
1640 IF K=68 THEN 2100
1650 GOTO 1560
1660 CALL JOYST(1,X1,Y1)
1670 IF(X1=0)*(Y1=0)THEN 1560
1680 IF X1=-4 THEN 1720
1690 IF X1=4 THEN 2100
1700 IF Y1=4 THEN 1930
1710 IF Y1=-4 THEN 1560
1720 CALL HCHAR(24,X,137)
1730 A=A-2
1740 IF A=10 THEN 1830
1750 B=B-1
1760 IF B=2 THEN 1810
1770 CALL VCHAR(A,B,144)
1780 CALL VCHAR(A,B,32)
1790 GOSUB 4800
1800 GOTO 1730
1810 CALL SOUND(100,110,5)
1820 GOTO 2130
1830 A=A-1
1840 IF A=3 THEN 2890
1850 CALL GCHAR(A,B,E)
1860 IF E=104 THEN 2310
1870 IF E=112 THEN 2330
1880 IF E=120 THEN 2350
1890 IF E=128 THEN 2370
1900 CALL VCHAR(A,B,144)
1910 CALL VCHAR(A,B,32)
1920 GOTO 1830
1930 CALL HCHAR(24,X,136)
1940 A=A-2
1950 IF A=10 THEN 2000
1960 CALL VCHAR(A,B,144)
1970 CALL VCHAR(A,B,32)
1980 GOSUB 4800
1990 GOTO 1940
2000 A=A-1
2010 IF A=3 THEN 2890
2020 CALL GCHAR(A,B,E)
2030 IF E=104 THEN 2390
2040 IF E=112 THEN 2410
2050 IF E=120 THEN 2430
2060 IF E=128 THEN 2450
2070 CALL VCHAR(A,B,144)
2080 CALL VCHAR(A,B,32)
2090 GOTO 2000
2100 CALL HCHAR(24,X,138)
2110 A=A-2
2120 IF A=10 THEN 2210
2130 B=B+1
2140 IF B=32 THEN 2190
2150 CALL VCHAR(A,B,144)
2160 CALL VCHAR(A,B,32)
2170 GOSUB 4800
2180 GOTO 2110
2190 CALL SOUND(100,110,5)
2200 GOTO 1750
2210 A=A-1
2220 IF A=3 THEN 2890
2230 CALL GCHAR(A,B,E)
2240 IF E=104 THEN 2470
2250 IF E=112 THEN 2490
2260 IF E=120 THEN 2510
2270 IF E=128 THEN 2530
2280 CALL VCHAR(A,B,144)
2290 CALL VCHAR(A,B,32)
2300 GOTO 2210
2310 GOSUB 5030
2320 GOTO 2550
2330 GOSUB 5130
2340 GOTO 2550
2350 GOSUB 5230
2360 GOTO 2550
2370 GOSUB 5330
2380 GOTO 2550
2390 GOSUB 5030
2400 GOTO 2850
2410 GOSUB 5130
2420 GOTO 2850
2430 GOSUB 5230
2440 GOTO 2850
2450 GOSUB 5330
2460 GOTO 2850
2470 GOSUB 5030
2480 GOTO 2700
2490 GOSUB 5130
2500 GOTO 2700
2510 GOSUB 5230
2520 GOTO 2700
2530 GOSUB 5330
2540 GOTO 2700
2550 CALL VCHAR(A,B,144)
2560 CALL VCHAR(A,B,32)
2570 A=A+1
2580 IF A=10 THEN 2600
2590 GOTO 2550
2600 A=A+1
2610 IF A=24 THEN 1530
2620 B=B-1
2630 IF B=2 THEN 2680
2640 CALL VCHAR(A,B,144)
2650 CALL VCHAR(A,B,32)
2660 GOSUB 4800
2670 GOTO 2600
2680 CALL SOUND(100,110,5)
2690 GOTO 2770
2700 CALL VCHAR(A,B,144)
2710 CALL VCHAR(A,B,32)
2720 A=A+1
2730 IF A=10 THEN 2750
2740 GOTO 2700
2750 A=A+1
2760 IF A=24 THEN 1530
2770 B=B+1
2780 IF B=32 THEN 2830
2790 CALL VCHAR(A,B,144)
2800 CALL VCHAR(A,B,32)
2810 GOSUB 4800
2820 GOTO 2750
2830 CALL SOUND(100,110,5)
2840 GOTO 2620
2850 RANDOMIZE
2860 R=INT(2*RND)+1
2870 IF R=1 THEN 2550
2880 IF R=2 THEN 2700
2890 CALL SOUND(100,1245,5)
2900 RANDOMIZE
2910 R=INT(2*RND)+1
2920 IF R=1 THEN 2940
2930 IF R=2 THEN 3080
2940 CALL VCHAR(A,B,144)
2950 CALL VCHAR(A,B,32)
2960 A=A+1
2970 IF A=10 THEN 2600
2980 B=B-1
2990 IF B=2 THEN 3060
3000 CALL GCHAR(A,B,E)
3010 IF E=128 THEN 3220
3020 IF E=120 THEN 3240
3030 IF E=112 THEN 3260
3040 IF E=104 THEN 3280
3050 GOTO 2940
3060 CALL SOUND(100,110,5)
3070 GOTO 3120
3080 CALL VCHAR(A,B,144)
3090 CALL VCHAR(A,B,32)
3100 A=A+1
3110 IF A=10 THEN 2750
3120 B=B+1
3130 IF B=32 THEN 3200
3140 CALL GCHAR(A,B,E)
3150 IF E=128 THEN 3300
3160 IF E=120 THEN 3320
3170 IF E=112 THEN 3340
3180 IF E=104 THEN 3360
3190 GOTO 3080
3200 CALL SOUND(100,110,5)
3210 GOTO 2980
3220 GOSUB 5330
3230 GOTO 3380
3240 GOSUB 5230
3250 GOTO 3380
3260 GOSUB 5130
3270 GOTO 3380
3280 GOSUB 5030
3290 GOTO 3380
3300 GOSUB 5330
3310 GOTO 3520
3320 GOSUB 5230
3330 GOTO 3520
3340 GOSUB 5130
3350 GOTO 3520
3360 GOSUB 5030
3370 GOTO 3520
3380 CALL VCHAR(A,B,144)
3390 CALL VCHAR(A,B,32)
3400 A=A-1
3410 IF A=3 THEN 2890
3420 B=B-1
3430 IF B=2 THEN 3500
3440 CALL GCHAR(A,B,E)
3450 IF E=104 THEN 3660
3460 IF E=112 THEN 3680
3470 IF E=120 THEN 3700
3480 IF E=128 THEN 3720
3490 GOTO 3380
3500 CALL SOUND(100,110,5)
3510 GOTO 3560
3520 CALL VCHAR(A,B,144)
3530 CALL VCHAR(A,B,32)
3540 A=A-1
3550 IF A=3 THEN 2890
3560 B=B+1
3570 IF B=32 THEN 3640
3580 CALL GCHAR(A,B,E)
3590 IF E=104 THEN 3740
3600 IF E=112 THEN 3760
3610 IF E=120 THEN 3780
3620 IF E=128 THEN 3800
3630 GOTO 3540
3640 CALL SOUND(100,110,5)
3650 GOTO 3420
3660 GOSUB 5030
3670 GOTO 3520
3680 GOSUB 5130
3690 GOTO 3520
3700 GOSUB 5230
3710 GOTO 3520
3720 GOSUB 5330
3730 GOTO 3520
3740 GOSUB 5030
3750 GOTO 3380
3760 GOSUB 5130
3770 GOTO 3380
3780 GOSUB 5230
3790 GOTO 3380
3800 GOSUB 5330
3810 GOTO 3380
3820 CALL CLEAR
3830 CALL SOUND(200,220,5)
3840 CALL SOUND(200,247,5)
3850 CALL SOUND(200,262,5)
3860 CALL SOUND(200,247,5)
3870 CALL SOUND(200,220,5)
3880 CALL SOUND(200,165,5)
3890 CALL SOUND(200,262,5)
3900 CALL SOUND(200,247,5)
3910 CALL SOUND(200,220,5)
3920 CALL SOUND(200,262,5)
3930 CALL SOUND(300,330,5)
3940 CALL SCREEN(12)
3950 PRINT " IL TUO PUNTEGGIO E':"
3960 FOR Z=1 TO 5
3970 PRINT
3980 NEXT Z
3990 PRINT " IL RECORD DI OGGI E':"
4000 FOR Z=1 TO 5
4010 PRINT
4020 NEXT Z
4030 PRINT "     VUOI GIOCARE ANCORA?"
4040 FOR Z=1 TO 5
4050 PRINT
4060 NEXT Z
4070 PRINT "         PREMI Y O N"
4080 FOR Z=1 TO 3
4090 PRINT
4100 NEXT Z
4110 GOSUB 5510
4120 CALL KEY(0,K,S)
4130 IF S=0 THEN 4120
4140 IF K=89 THEN 4190
4150 IF K=121 THEN 4190
4160 IF K=78 THEN 4220
4170 IF K=110 THEN 4220
4180 GOTO 4120
4190 CALL CLEAR
4200 CALL SCREEN(3)
4210 IF L>32219 THEN 1000 ELSE 990
4220 CALL CLEAR
4230 PRINT "            CIAO"
4240 FOR Z=1 TO 10
4250 PRINT
4260 NEXT Z
4270 GOTO 4270
4280 E=E+2
4290 IF E>15 THEN 4310
4300 GOTO 4320
4310 E=3
4320 CALL SCREEN((E))
4330 N=49
4340 O=48
4350 P=48
4360 W=W+32219
4370 IF W=322190 THEN 820 ELSE 4400
4380 CALL HCHAR(24,X,32)
4390 GOTO 990
4400 IF W=0 THEN 4500
4410 IF W=32219 THEN 4530
4420 IF W=64438 THEN 4560
4430 IF W=96657 THEN 4590
4440 IF W=128876 THEN 4620
4450 IF W=161095 THEN 4650
4460 IF W=193314 THEN 4680
4470 IF W=225533 THEN 4710
4480 IF W=257752 THEN 4740
4490 IF W=289971 THEN 4770
4500 N=49
4510 O=50
4520 RETURN
4530 N=49
4540 O=49
4550 RETURN
4560 N=49
4570 O=48
4580 RETURN
4590 N=48
4600 O=57
4610 RETURN
4620 N=48
4630 O=56
4640 RETURN
4650 N=48
4660 O=55
4670 RETURN
4680 N=48
4690 O=54
4700 RETURN
4710 N=48
4720 O=53
4730 RETURN
4740 N=48
4750 O=52
4760 RETURN
4770 N=48
4780 O=51
4790 RETURN
4800 IF T=1 THEN 4810 ELSE 4960
4810 CALL KEY(0,K,S)
4820 IF S=0 THEN 4900
4830 IF K=65 THEN 4860
4840 IF K=68 THEN 4910
4850 RETURN
4860 CALL HCHAR(24,X,32)
4870 X=X-1
4880 IF X=2 THEN 4920
4890 CALL HCHAR(24,X,136)
4900 RETURN
4910 CALL HCHAR(24,X,32)
4920 X=X+1
4930 IF X=32 THEN 4870
4940 CALL HCHAR(24,X,136)
4950 RETURN
4960 CALL JOYST(1,X1,Y1)
4970 IF(X1=0)*(Y1=0)THEN 5020
4980 IF X1=-4 THEN 4860
4990 IF X1=4 THEN 4910
5000 IF Y1=4 THEN 5020
5010 IF Y1=-4 THEN 5020
5020 RETURN
5030 CALL SOUND(100,440,5)
5040 L=L+1
5050 IF L=W THEN 4280
5060 U=U+1
5070 IF U>57 THEN 5100
5080 CALL HCHAR(1,31,(U))
5090 RETURN
5100 U=48
5110 CALL HCHAR(1,31,(U))
5120 GOTO 5160
5130 CALL SOUND(100,523,5)
5140 L=L+10
5150 IF L=W THEN 4280
5160 D=D+1
5170 IF D>57 THEN 5200
5180 CALL HCHAR(1,30,(D))
5190 RETURN
5200 D=48
5210 CALL HCHAR(1,30,(D))
5220 GOTO 5260
5230 CALL SOUND(100,880,5)
5240 L=L+100
5250 IF L=W THEN 4280
5260 C=C+1
5270 IF C>57 THEN 5300
5280 CALL HCHAR(1,29,(C))
5290 RETURN
5300 C=48
5310 CALL HCHAR(1,29,(C))
5320 GOTO 5360
5330 CALL SOUND(100,1047,5)
5340 L=L+1000
5350 IF L=W THEN 4280
5360 M=M+1
5370 IF M>57 THEN 5400
5380 CALL HCHAR(1,28,(M))
5390 RETURN
5400 M=48
5410 CALL HCHAR(1,28,(M))
5420 DM=DM+1
5430 IF DM>57 THEN 5460
5440 CALL HCHAR(1,27,(DM))
5450 RETURN
5460 DM=48
5470 CM=CM+1
5480 CALL HCHAR(1,27,(DM))
5490 CALL HCHAR(1,26,(CM))
5500 RETURN
5510 CALL HCHAR(2,31,(U))
5520 CALL HCHAR(2,30,(D))
5530 CALL HCHAR(2,29,(C))
5540 CALL HCHAR(2,28,(M))
5550 CALL HCHAR(2,27,(DM))
5560 CALL HCHAR(2,26,(CM))
5570 CALL HCHAR(8,30,(UR))
5580 CALL HCHAR(8,29,(DR))
5590 CALL HCHAR(8,28,(CR))
5600 CALL HCHAR(8,27,(MR))
5610 CALL HCHAR(8,26,(DMR))
5620 CALL HCHAR(8,25,(CMR))
5630 IF U>UR THEN 5640 ELSE 5650
5640 UR=U
5650 IF D>DR THEN 5660 ELSE 5670
5660 DR=D
5670 IF C>CR THEN 5680 ELSE 5690
5680 CR=C
5690 IF M>MR THEN 5700 ELSE 5710
5700 MR=M
5710 IF DM>DMR THEN 5720 ELSE 5730
5720 DMR=DM
5730 IF CM>CMR THEN 5740 ELSE 5750
5740 CMR=CM
5750 RETURN
